модуль с математическими и физическими константами nt_001 тестовый комментарий
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=wp), | public, | parameter | :: | zero | = | 0.0_wp | |
| real(kind=wp), | public, | parameter | :: | one | = | 1.0_wp | |
| real(kind=wp), | public, | parameter | :: | two | = | 2.0_wp | |
| real(kind=wp), | public, | parameter | :: | one_third | = | 1.0_wp/3.0_wp | |
| real(kind=wp), | public, | parameter | :: | tiny | = | 1.e-100_wp | |
| real(kind=wp), | public, | parameter | :: | tiny1 | = | 1e-7_wp | |
| real(kind=wp), | public, | parameter | :: | pi | = | acos(-one) |
число Пи = 3.1415.... |
| real(kind=wp), | public, | parameter | :: | pi2 | = | 2.0_wp*pi | |
| real(kind=wp), | public, | parameter | :: | pi4 | = | 4.0_wp*pi | |
| real(kind=wp), | public, | parameter | :: | piq | = | sqrt(pi) | |
| real(kind=wp), | public, | parameter | :: | pisqrt | = | sqrt(pi) | |
| real(kind=wp), | public, | parameter | :: | pi2sqrt | = | sqrt(pi2) | |
| real(kind=wp), | public, | parameter | :: | talfa | = | 3.5_wp |
alpha particles' birth energy, MeV |
| real(kind=wp), | public, | parameter | :: | zalfa | = | 2.0_wp |
alpha particles' electrical charge |
| real(kind=wp), | public, | parameter | :: | xmalfa | = | 4.0_wp |
alpha particles' atomic mass |
| real(kind=wp), | public, | parameter | :: | clt | = | 3.0e+10_wp |
скорость света |
| real(kind=wp), | public, | parameter | :: | pme | = | 9.11e-28_wp | |
| real(kind=wp), | public, | parameter | :: | pme_e | = | 9.11e-28 | |
| real(kind=wp), | public, | parameter | :: | pqe | = | 4.803e-10_wp | |
| real(kind=wp), | public, | parameter | :: | xlog | = | 16.0_wp+dlog(16.0_wp) | |
| real(kind=wp), | public, | parameter | :: | c0 | = | sqrt(pi4*pqe**2/pme) | |
| real(kind=wp), | public, | parameter | :: | c1 | = | pqe/pme/clt | |
| real(kind=wp), | public, | parameter | :: | xsgs | = | 1e+13_wp |
1MW = 1e13 erg/s |
| real(kind=wp), | public, | parameter | :: | xwtt | = | 1e-7_wp | |
| real(kind=wp), | public, | parameter | :: | cnst1 | = | 0.2965924106e-6_wp |
cnst1=(m_e/m_p)**2, CGS |
| real(kind=wp), | public, | parameter | :: | cnst2 | = | 0.359680922e-35_wp |
cnst2=(m_e/e)**2, CGS |